home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 48 / Amiga Format CD48 (1999-12-13)(Future Publishing)(GB)(Track 1 of 2)[!][issue 2000-01].iso / -serious- / misc / datelib / developer / rexx / include / date.rexx
OS/2 REXX Batch file  |  1999-11-01  |  3KB  |  109 lines
  1. /*
  2. **
  3. ** Copyright © 1997-1999 Dipl.-Inform. Kai Hofmann. All rights reserved.
  4. ** Registered Amiga shared library!
  5. **
  6. ** $VER: date.rexx 33.310 (16.06.99)
  7. **
  8. ** Experimental version, please report bugs/improvements!
  9. */
  10.  
  11. DATE_INIT:
  12.   DATE_NAME       = 'date.library'
  13.   DATE_VERSION    = 33
  14.   DATE_REVISION   = 310
  15.   DATE_DISPATCHER = -492
  16.  
  17.   ADDRESS COMMAND
  18.   'VERSION' DATE_NAME DATE_VERSION DATE_REVISION '>NIL:'
  19.   IF RC > 0 THEN DO
  20.     SAY "Need '" || DATE_NAME || "'" DATE_VERSION || "." || DATE_REVISION
  21.     RETURN(10)
  22.   END
  23.  
  24.   IF ~SHOW('LIBRARIES',DATE_NAME) THEN DO
  25.     IF ~ADDLIB(DATE_NAME,0,DATE_DISPATCHER,DATE_VERSION) THEN DO
  26.       SAY "Can not add '" || DATE_NAME || "'" DATE_VERSION || "." || DATE_REVISION
  27.       RETURN(10)
  28.     END
  29.     DATE_OPEN = 0
  30.   END
  31.   ELSE DO
  32.     DATE_OPEN = 1
  33.   END
  34.  
  35.   /* Constant definitions */
  36.   TIME_CHANGEDAY_NORMAL         = 0
  37.   TIME_CHANGEDAY_WINTERTOSUMMER = 1
  38.   TIME_CHANGEDAY_SUMMERTOWINTER = 2
  39.  
  40.   DATE_MOONPHASES_NEWMOON       = 0
  41.   DATE_MOONPHASES_FIRSTQUARTER  = 1
  42.   DATE_MOONPHASES_FULLMOON      = 2
  43.   DATE_MOONPHASES_LASTQUARTER   = 3
  44.  
  45.   DATE_WEEKDAYS_DAYERR          = 0
  46.   DATE_WEEKDAYS_MONDAY          = 1
  47.   DATE_WEEKDAYS_TUESDAY         = 2
  48.   DATE_WEEKDAYS_WEDNESDAY       = 3
  49.   DATE_WEEKDAYS_THURSDAY        = 4
  50.   DATE_WEEKDAYS_FRIDAY          = 5
  51.   DATE_WEEKDAYS_SATURDAY        = 6
  52.   DATE_WEEKDAYS_SUNDAY          = 7
  53.  
  54.   DATE_DATETEXTS_DAY            = 0
  55.   DATE_DATETEXTS_MONTH          = 1
  56.   DATE_DATETEXTS_YEAR           = 2
  57.   DATE_DATETEXTS_WEEK           = 3
  58.   DATE_DATETEXTS_WEEKDAY        = 4
  59.   DATE_DATETEXTS_HOUR           = 5
  60.   DATE_DATETEXTS_MINUTE         = 6
  61.   DATE_DATETEXTS_SECOND         = 7
  62.   DATE_DATETEXTS_YESTERDAY      = 8
  63.   DATE_DATETEXTS_TODAY          = 9
  64.   DATE_DATETEXTS_TOMORROW       = 10
  65.  
  66.   DATE_WORDCLASS_SINGULAR       = 0
  67.   DATE_WORDCLASS_PLURAL         = 1
  68.   DATE_WORDCLASS_PERIODICAL     = 2
  69.  
  70.   DATE_LANGUAGES_LOCALE         = 0
  71.   DATE_LANGUAGES_ENGLISH        = 1
  72.   DATE_LANGUAGES_GERMAN         = 2
  73.   DATE_LANGUAGES_FRENCH         = 3
  74.   DATE_LANGUAGES_SPANISH        = 4
  75.   DATE_LANGUAGES_PORTUGUESE     = 5
  76.   DATE_LANGUAGES_DANISH         = 6
  77.   DATE_LANGUAGES_ITALIAN        = 7
  78.   DATE_LANGUAGES_DUTCH          = 8
  79.   DATE_LANGUAGES_NORWEGIAN      = 9
  80.   DATE_LANGUAGES_SWEDISH        = 10
  81.   DATE_LANGUAGES_POLISH         = 11
  82.   DATE_LANGUAGES_FINNISH        = 12
  83.   DATE_LANGUAGES_HUNGARIAN      = 13
  84.   DATE_LANGUAGES_GREEK          = 14
  85.   DATE_LANGUAGES_ESPERANTO      = 15
  86.   DATE_LANGUAGES_TURKISH        = 16
  87.   DATE_LANGUAGES_LATIN          = 17
  88.   DATE_LANGUAGES_RUSSIAN        = 18
  89.   DATE_LANGUAGES_CZECH          = 19
  90.   DATE_LANGUAGES_CATALONIAN     = 20
  91.   DATE_LANGUAGES_SERBIAN        = 21
  92.   DATE_LANGUAGES_LASTLANGUAGE   = 22
  93.  
  94.   DATE_COUNTRIES_UNKNOWN        = 0
  95.   DATE_COUNTRIES_ITALIA         = 1
  96.   DATE_COUNTRIES_DEUTSCHLAND    = 2
  97.   DATE_COUNTRIES_SCHWEIZ        = 3
  98.   DATE_COUNTRIES_DANMARK        = 4
  99.   DATE_COUNTRIES_NEDERLAND      = 5
  100.   DATE_COUNTRIES_GREATBRITAIN   = 6
  101.   DATE_COUNTRIES_USA            = 7
  102.   DATE_COUNTRIES_SWEDEN         = 8
  103.  
  104.   DATE_CALENDARS_JULIAN         = 0
  105.   DATE_CALENDARS_GREGORIAN      = 1
  106.   DATE_CALENDARS_HEIS           = 2
  107.  
  108.   RETURN(0)
  109.